home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 16 / AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso / pd / anwendungen / filer / rexx / searchtext.filer < prev    next >
Text File  |  1997-12-08  |  1KB  |  65 lines
  1. /*
  2.  
  3.    $VER: Searchtext.filer 1.1 (1997-12-08)
  4.  
  5.    Author:
  6.      Jon Åslund <jooon@hem1.passagen.se>
  7.  
  8.    Function:
  9.      Opens a string requester, asks for a pattern to search for in the selected
  10.      files and then executes the command.
  11.  
  12.    History:
  13.      1.0 - Used Execute.filer as a template
  14.      1.1 - Changed Example for "Filer.RC"
  15.  
  16.    Call from Filer:
  17.      Searchtext
  18.  
  19.    Example for "Filer.RC":
  20.      BUTTON ...,...,"Search Text","Searchtext"
  21.  
  22. */
  23.  
  24. OPTIONS RESULTS
  25.  
  26. 'STATUS Searching for text'
  27.  
  28. PANEL OFF
  29.  
  30. Pattern=GETCLIP('FILER_SEARCH')
  31. 'SETSTRING' Pattern
  32.  
  33. GETSTRING 'Enter pattern to search for:'
  34. IF RESULT="RESULT" THEN
  35.  DO
  36.   PANEL ON
  37.   'STATUS Searching aborted'
  38.   EXIT 5
  39.  END
  40.  
  41. Pattern = RESULT
  42.  
  43. GETNUMENTRIES
  44. Num=RESULT
  45. DO Index=1 TO Num
  46.      GETNAME Index
  47.      Data=RESULT
  48.      Name=SUBSTR(Data,2)
  49.      IF LEFT(Data,1)="f" THEN DO
  50.           IF Files = "FILES" THEN Files = Name
  51.           ELSE Files = Files Name
  52.           TOGGLEENTRY Index
  53.      END
  54. END
  55.  
  56. Command = "Flashfind" Files Pattern
  57.  
  58. CALL SETCLIP('FILER_SEARCH',Pattern)
  59.  
  60. EXECANDWAIT Command
  61. UPDATESOURCEDIR
  62.  
  63. PANEL ON
  64. 'HISTORY Searched for the pattern' Pattern
  65.